let day_of_year year month day = int_of_sv (call ~fn:"Date::Calc::Day_of_Year" [sv_of_int year; sv_of_int month; sv_of_int day])