import GHC.IO.Encoding g b=take 7$drop b$s s=[0,2,3,5,7,8,10]++map(+12)s n"\xe2\x99\xaf"=1 n""=0 n _= -1 f(x:r)|b<-mod(fromEnum x-2)7=zipWith3(\x y z->cycle"ABCDEFG"!!z:["\xf0\x9d\x84\xab","\xe2\x99\xad","","\xe2\x99\xaf","\xf0\x9d\x84\xaa"]!!(y-x+n r+g b!!0-1))(g b)(g 2)[b..] m@main=setLocaleEncoding utf8>>getLine>>=putStrLn.unwords.f>>m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).