Telephone Keypad Letter Mapping Fixed by pi8027

import Data.List\x0d
main=interact(map(\s->"         abc def ghi jkl mno pqrstuv wxyz"!!(read[head s]*4+length s)).unfoldr f)\x0d
f s=case break(=='1')s of{(_,[])->Nothing;(h,_:t)->Just(h,t)}\x0d
\x0d

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page