a%b=(++)<$>a<*>[b,reverse b]
main=mapM putStrLn$["M"]%"CD"%"XL"%"IV"