( "apple" )
30
42
ljust
swap
read-num
    new-line
    over
    right-uncons
    itemize
    left-cons
b5
times #(eval)