b"\n_START_ARTICLE_\nKalendarz wieczny\n_START_SECTION_\nImplementacja w Ocamlu\n_START_PARAGRAPH_\nOto funkcja napisana na podstawie wzoru Mike'a Keitha:_NEWLINE_type date = {day : int; month : int; year : int;};;(* funkcja zwraca dzie\xc5\x84 tygodnia na podstawie podanej daty,   przy czym: 0 - niedziela, 1 - poniedzia\xc5\x82ek, ..., 6 - sobota *)let weekday_NEWLINE_    (time : date) =_NEWLINE_  let z = if time.month < 3 then time.year - 1 else time.year in_NEWLINE_  let x = _NEWLINE_    ((23 * time.month) / 9) + time.day + 4 + time.year + (z / 4) - (z / 100) + (z / 400)_NEWLINE_  in_NEWLINE_  if time.month < 3 then x mod 7 else (x - 2) mod 7    _NEWLINE_;;"