let
weeks_in_year year =
int_of_sv (call ~fn:
"Date::Calc::Weeks_in_Year"
[sv_of_int year])