Paste: Silly stuff

: 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 ;