1# $Id: e222_1.zpl,v 1.1 2014/01/12 09:47:38 bzfkocht Exp $ 2var x binary; 3var y binary; 4 5subto c1: vif x == 1 then y * y == 1 end; 6