write( case(X<Y then 'less than' X=Y then 'equal to' 'more than'))
abs(X) := if(X<0 then -X else X)
if(X>0 'positive')