let numero_vers_ponctuel z : ponctuel =
    1 lsl z;;