(************************************************************
   match.ml		Created      : Mon Dec  9 14:13:27 2002
  			Last modified: Mon Dec 09 14:15:42 2002
  Compile: ocamlopt.opt match.ml -o match #
************************************************************)
type t = Tak | Mamewo | Hogera

(* match with multiple value *)
let f = function 
    Tak | Mamewo -> "me"
  | Hogera -> assert false

let _ = 
  print_endline (f Tak);
  print_endline (f Mamewo);
  print_endline (f Hogera);