let
leap_year year =
bool_of_sv (call ~fn:
"Date::Calc::leap_year"
[sv_of_int year])