: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