to hd :name hd1 ascii readchar [] end to hd1 :num :list local "tmp make "tmp [] if :num = 58 [define :name list [] :list ~ bury :tmp bury "hd bury "hd1 ~ save :name stop] if :num = 98 [make "tmp [bk 15]] if :num = 102 [make "tmp [fd 15]] if :num = 108 [make "tmp [lt 15]] if :num = 114 [make "tmp [rt 15]] run :tmp hd1 ascii readchar se :list :tmp end