(* Code of Figure 7.4, page 275 from
   Kenneth C. Louden, Programming Languages
   Principles and Practice 2nd Edition
   Copyright (C) Brooks-Cole/ITP, 2003
*)

fun casedemo x =
  case x - 1 of
    0 => 2 |
    2 => 1 |
    _ => 10
  ;