12 lines
239 B
Text
12 lines
239 B
Text
|
( doit
|
||
|
|
= out'"Enter a string"
|
||
|
|
& get':?mystring
|
||
|
|
& whl
|
||
|
|
' ( out'"Enter a number"
|
||
|
|
& get':?mynumber
|
||
|
|
& !mynumber:~#
|
||
|
|
& out'"I said:\"a number\"!"
|
||
|
|
)
|
||
|
|
& out$(mystring is !mystring \nmynumber is !mynumber \n)
|
||
|
|
);
|