let mouvements (m:motif) : motif list =

    let rec aux (p:ponctuel) =
    if p = 1 lsl 53 then []
    else (if inclus m p then coup_compose (m,p) else [] )
    @ aux (2∗p)
    in
    List.map fst (aux 4)
;;