12 lines
187 B
Text
12 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
|