: ask-for-numbers ( -- seq n ) [ [ "> " write readln { { [ dup "quit" = ] [ drop f ] } { [ dup string>number ] [ string>number sq , t ] } [ "Try again" write ] } cond ] loop ] { } make dup length ;