let valide (p:ponctuel) =
    inclus motif_europeen p;;

let voisin_g (p:ponctuel) : ponctuel =
    let res = p lsr 1 in
    if valide res then res
    else 0
;;