1 2 3 4 5
open Datatypes open List open Locations val parallel_move_order: loc list -> loc list -> (loc, loc) prod list