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).