(def old (peg/compile ~(* (repeat 3 (range "AZ")) " " (repeat 3 (range "09")) -1)))
(def new (peg/compile ~(* (repeat 4 (range "09")) " " (repeat 3 (range "AZ")) -1)))

(defn main [_ arg] (print (cond
	(peg/match old arg) "Old"
	(peg/match new arg) "New"
	true "Not a license plate"
)))