let est_ponctuel (m:motif) : bool =
    (m>0) && ((m land (m−1)) = 0) ;;