printf ("if, case, for, while etc. are all expressions.\n");

printf ("Case-expression: %s\n", case A (1, 2, 3) of A (x, y, z) -> z esac.string);

printf ("If-expression: %s\n", (if true then 2 else 3 fi +
                               if false then 6 else 7 fi).string);

printf ("Scope-expression: %s\n", (var i, s = 0;
                                   for i := 0, i < 10, i := i + 1 do
                                     s := s + i
                                   od;
                                   s
                                  ).string
       )