let parrot () =
  let s = ref "" in
  let i = ref 1 in
  while (s := read_line (); !s <> "0")
  do
    print_string ("Case " ^ (string_of_int !i) ^ ": ");
    print_endline !s;
    i := !i + 1
  done ;;
  parrot () ;;
