line-mode
read-num
5
divmod
2
divmod
@2
not
4
make-array
w( "luka" "tu" "wan" "ala" )
swap
compress
unwords