ble)
parseWeighted = try parseLeftW <|> parseRightW

parseQuanForm :: Parser (QuanT,
parseWeighted :: Parser (FOL, Double)
parseWeighted = try parseLeftW <|> parseRightW
parseWeighted = try parseLeftW <|> parseRightW