Add parser.hs
Add Dual