line-mode
counter
even
f:
    read-nums
    sum
    show-space
    ( "passed!==>" )
    catenate #(list+list)
    30
    rjust