line-mode
words
left-uncons
swap
{
    pop-a
    {
        dup
        push-a
        member
        push-a
        extract-array
        ^
        *
        ^
    }
    map
}
each