7 lines
194 B
Text
7 lines
194 B
Text
|
needs readline
|
||
|
|
." Enter a string: " readline is-data the-string
|
||
|
|
." Enter a number: " readline >number [ ." Not a number!" drop 0 ] ifFalse is-data the-number
|
||
|
|
|
||
|
|
the-string type cr
|
||
|
|
the-number . cr
|