parseString ('$':'(':xs) = Right a : parseString (drop 1 b)
    where (a,b) = break (== ')') xs
parseString ('$':'(':xs) = Right a : parseString (drop 1 b)
    where (a,b) = break (== ')') xs
parseString ('$':'(':xs) = Right a : parseString (drop 1 b)
    where (a,b) = break (== ')') xs