/* Test multi-parameter when expressions */ classify : x y -> when x y is 0 0 then "both zero" 0 _ then "x is zero" _ 0 then "y is zero" _ _ then "neither zero"; ..out "multi-parameter when expression created successfully";