: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