Untitled

 #use"anddata.caml";;
val anddata : float list list =
  [[1.; -1.; -1.; -1.]; [1.; -1.; 1.; -1.]; [1.; 1.; -1.; -1.];
   [1.; 1.; 1.; 1.]]
# #use"darkmatrix.caml";;
val ( *- ) : 'a -> 'b -> float list -> float list -> float = <fun>
val rotate : 'a list -> 'b -> (float list -> float list -> float) list =
  <fun>
# rotate anddata [1.0;1.0;1.0;1.0];;
- : (float list -> float list -> float) list = [<fun>; <fun>; <fun>; <fun>]
#