let rec happyday month ten one count =
  if month > 12 then count
  else
    if ten = 3 && one = 1 then happyday (month + 1) 0 1 count
    else
      if one = 10 then happyday month (ten + 1) 0 count
      else
	if ten + one = month then happyday month ten (one + 1) (count + 1)
	else happyday month ten (one + 1) count

let () = print_int (happyday 1 0 1 0);
	 print_newline ()