Fix parser

recordPP2PopulationProtocol r = 

  makePopulationProtocolFromStrings (title r) (states r) (map name (transitions r)) (initialStates r) (trueStates r) falseStates p arcs where

        falseStates = [q | q <- states r, not (S.member q (S.fromList (trueStates r)))]

        count = \x -> length . (filter (== x))

        arcs = [(name t, q, toInteger m) | t <- transitions r, q <- (pre t ++ post t), let m = (count q) (post t) - (count q) (pre t)]

        count = \x -> fromIntegral . length . (filter (== x))

        arcs = [(q, name t, (count q) (pre t)) |  t <- transitions r, q <- pre t] ++ 

               [(name t, q, (count q) (post t)) | t <- transitions r, q <- post t]

        p = case predicate r of Nothing -> ExQuantFormula [] FTrue 

                                (Just p') -> p'