main=mapM(mapM putStrLn)[4&119$1,[3,11]>>=8&95,[19,37]>>=8&55,t 7$[55,87..]>>=128&0] (x&y)z=[t 129$t(x+1)s++1%y++drop x s|s<-map([z..]>>=)[\_->"+---",(\x->'|':length x%2++x).show,\x->'|':map(!!x)[1%113++"UUUUUU"," HHLBBCNOFNNMASPSCAKCSTVCMFCNCZGGASBKRSYZNMTRRPACISSTIXCBLCPNPSEGTDHETYLHTWROIPAHTPBPARFRATPUNPaCBCEFMNLRDSBHMDRCuuuuuu"," e ie eagli lr aci rneoiunaeserrbr rbocuhdgdnnbe esaaerdmmudbyormbufa esrtuglbiotnracha pummkfsmdorfbghstsgntqphso"]]] x%y=[x..y]>>" " t=take
Note that non-ascii characters in the above source code will be escaped (such as \x9f).