#lang racket
(require (planet wcy/mpost-wrapper))
(require (planet wcy/mpost-wrapper/label))
(provide main)

(define (main)
  (dot-label-urt (btex "$A$") (point 0 0)))