main=mapM putStrLn[([1..mod(fromEnum c)9]>>" ")++do['-','6'..c];"[]"|c<-"-H-$-H/$-H1$-H3$/H/$/H1$?C$6A/$6A1$6A3$68:"]