( "The answer to " "lifew universex everythingx" )
words
push-d
get
catenate #(list+list)
nip
right-uncons
diff #(list-elem)
"."