loc :: Char -> Parser x -> Parser x
loc s addr = try (lexeme (do { char' s
                             ; char' '['
                             ; a <- addr
                             ; char' ']'
                             ; return a
                             }))
          <?> "loc"
loc :: Char -> Parser x -> Parser x
loc s addr = try (lexeme (do { char' s
                             ; char' '['
                             ; a <- addr
                             ; char' ']'
                             ; return a
                             }))
          <?> "loc"
loc s addr = try (lexeme (do { char' s
                             ; char' '['
                             ; a <- addr
                             ; char' ']'
                             ; return a
                             }))
          <?> "loc"