let ()=
  let rec print_case n =
    let x = read_line() in
    if x <> "0" then
      begin
        print_string "Case ";
        print_int n;
        print_string (": "^x^"\n");
        print_case (n+1);
      end
  in

  print_case 1
;;
