((rec's(print s)(if(#/ /s)'(regexp-replace" "s"")))(read-line))