parseHeap :: Parser Heap
parseHeap = do
  th    <- endsBy  ';' parseDigits
  faddr <- endsBy  ';' parseAddr
  aaddr <- endsBy  ';' parseAddr
  amm   <- endsBy  ';' parseSignedDigits
  over  <- nEndsBy ';' parseDigits
  return (Heap th faddr aaddr amm over)
    where
      endsBy  = parseEnd id
      nEndsBy = parseEnd notFollowedBy
      parseEnd pred ch parser = parser >>= x -> (pred $ char ch) >> return x