1 1 .runstdin 3 copy 1 sub{4 copy pop 1 sub{( )print 1 index mul 2 index 2 copy
lt{( )print}if 3 string cvrs print}for pop/ =}for