parseString ('$':xs) = Right a : parseString b
    where (a,b) = span isAlphaNum xs
parseString ('$':xs) = Right a : parseString b
    where (a,b) = span isAlphaNum xs
parseString ('$':xs) = Right a : parseString b
    where (a,b) = span isAlphaNum xs