|
/* String routine */
|
|
block(
|
|
s:read("enter a string"),
|
|
if stringp(s) then print(s,"is an actual string") else "that is not a string")$
|
|
|
|
/* Number routine */
|
|
block(
|
|
n:read("enter a number"),
|
|
if numberp(n) then print(n,"is an actual number") else "that is not a number")$
|