USING: kernel io syntax ; IN: test TUPLE: employee name position salary ; : ( -- employee ) employee new 40000 >>salary ; : main ( -- ) drop ; MAIN: main