/* Debug test for function call evaluation in patterns */
is_even : n -> n % 2 = 0;

test_debug : n ->
  when n is
    is_even n then "function call result"
    4 then "four"
    _ then "other";

result : test_debug 4;
..out result;