r" _ | ||_|"=0
r" | |"=1
r" _ _||_ "=2
r" _ _| _|"=3
r" |_| |"=4
r" _ |_ _|"=5
r" _ |_ |_|"=6
r" _ | |"=7
r" _ |_||_|"=8
r" _ |_| |"=9
m@main=do{a<-g;b<-g;g>>=putStrLn.concatMap(show.r).z(z a b);m}
g=fmap f getLine
z=zipWith(++)
f[]=[]
f x=take 3 x:f(drop 3 x)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).