reducing # of lines in Parse.hs