;;; -*- Mode:LISP; Package:USER; Readtable:CL; Base:10 -*-


(princ "I say ZWEI-WON")

(princ "I say ZWEI-LOST")

(defstruct zwei-wins
  (zwei-won t))

(zl:defstruct zwei-loses
  (zwei-lost T))