11 lines
239 B
Text
11 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)
|
|
);
|