data PitchSymbol = C | Db | D | Eb | E | F | Gb | G | Ab | A | Bb | B
    deriving (Enum, Show, Eq, Ord, Read)

data Pitch = Pitch
    { symbol :: PitchSymbol
    , octave :: Int
    } deriving (Eq, Read)

main = print $ (read "[Pitch E 0]" :: [Pitch])