pOctave :: CharParser () Octave
pOctave = Octave . read . (: []) <$> oneOf "012345678"
pOctave :: CharParser () Octave
pOctave = Octave . read . (: []) <$> oneOf "012345678"
pOctave = Octave . read . (: []) <$> oneOf "012345678"