(<>) :: Eq t => Parser t -> Parser t -> Parser t
(f <> g) ts
    | b         = fts
    | otherwise = g ts
    where
        fts@(b,_) = f ts
(<>) :: Eq t => Parser t -> Parser t -> Parser t
(f <> g) ts
    | b         = fts
    | otherwise = g ts
    where
        fts@(b,_) = f ts
(<>) :: Eq t => Parser t -> Parser t -> Parser t
(f <> g) ts
    | b         = fts
    | otherwise = g ts
    where
        fts@(b,_) = f ts