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)