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