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