6 lines
194 B
Text
6 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
|