blob: ee2c653d36ab44599afdd476e6d0172df731173c (
plain)
1
|
: go 0x0a 0x2022 value@ dup 8 + s" : go 0x0a 0x2022 value@ dup 8 + s" s" s" s" dup { dup } { 1- dup 2 + pick dup { 2 pick + 1+ pick emitstring } { drop over { dup } { 1- dup 3 + pick . space } while drop over . space } if-else } while ; go bye" 3 5 3 5 2 5 2 5 2 5 1 5 0 1 4 15 dup { dup } { 1- dup 2 + pick dup { 2 pick + 1+ pick emitstring } { drop over { dup } { 1- dup 3 + pick . space } while drop over . space } if-else } while ; go bye
|