w( "hot potato" "cold spaghetti" )
m:
    words
    2
    times #(list)
    dup2
    @0
    tail
    3
    times #(list)
    empty-list
}
m:
    unwords
    new-line