position :: Parser [Match Char]
position = do
       x <- Positional <$> natural rulesDef
       rest <- option [] $ reservedOp rulesDef "<>" *> rule1
       return (x:rest)
position :: Parser [Match Char]
position = do
       x <- Positional <$> natural rulesDef
       rest <- option [] $ reservedOp rulesDef "<>" *> rule1
       return (x:rest)
position = do
       x <- Positional <$> natural rulesDef
       rest <- option [] $ reservedOp rulesDef "<>" *> rule1
       return (x:rest)