13 lines
187 B
Text
13 lines
187 B
Text
|
:varfunc
|
||
|
|
1 tolist flatten
|
||
|
|
len [
|
||
|
|
get print nl
|
||
|
|
] for
|
||
|
|
drop
|
||
|
|
;
|
||
|
|
|
||
|
|
"Enter any number of words separated by space: " input nl
|
||
|
|
stklen [split varfunc nl] if
|
||
|
|
|
||
|
|
nl "End " input
|