#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '1cm))
    (draw (op-- (point (op* -2 u) 0)
                (point (op*  2 u) 0)))
    (draw (op-- (point 0 (op* -2 u))
                (point 0 (op*  2 u))))
    (for ((i (in-range -2 3 1)))
         (draw (op-- (point (op* i u) (op/ u  20))
                     (point (op* i u) (op/ u -20))))
         (draw (op-- (point (op/ u  20) (op* i u))
                     (point (op/ u -20) (op* i u)))))))