parse :: String -> [Code]
parse s = either (error . show) id $ Parsec.parse (many code) "Codes" s
parse :: String -> [Code]
parse s = either (error . show) id $ Parsec.parse (many code) "Codes" s
parse s = either (error . show) id $ Parsec.parse (many code) "Codes" s