usereg

(0,0,0) (3,0,0) makeVEFS !e1

:e1 (3,3,0) makeEVone !e3
:e3 (0,3,0) makeEVone !e2

:e1 edgemate :e2 makeEF edgemate !e0

:e0 (0,0,1) makeEVone !e4
:e1 (3,0,1) makeEVone !e5
:e2 (0,3,1) makeEVone !e6
:e3 (3,3,1) makeEVone !e7

:e5 :e4 makeEF
%:e7 :e5 makeEF
%:e6 :e7 makeEF
%:e4 :e6 makeEF