(* These lines bind this_year to the result of executing the Unix date command to get the current year number. *) let this_year = 2014 ;; (* These lines bind next_year to the result of adding 1 to the result of the Unix date to get the next year number. *) let next_year = 2015 ;;