getNote :: ReadP String
getNote = do _ <- satisfy (== '"')
             n <- munch (/= '"')
             _ <- satisfy (== '"')
             return n
getNote :: ReadP String
getNote = do _ <- satisfy (== '"')
             n <- munch (/= '"')
             _ <- satisfy (== '"')
             return n
getNote = do _ <- satisfy (== '"')
             n <- munch (/= '"')
             _ <- satisfy (== '"')
             return n