(* test program ... it sux*)

out "(Y/n)? "; 
a = in(ch); 
if a=="y" | a=="Y" : 
	b=1 
else 
	b=0
; 

out b+"\n"


(* compiled to SADOL2: 
!"7(Y/n)?:a;0?|=a"1y=a"1Y:b1:b0!+b"1

*)