regspin.ml

module F () =
  struct
    let v01 = ref 42
    let v02 = ref 42
    let v03 = ref 42
    let v04 = ref 42
    let v05 = ref 42
    let v06 = ref 42
    let v07 = ref 42
    let v08 = ref 42
    let v09 = ref 42
    let v10 = ref 42
    let v11 = ref 42
    let v12 = ref 42

    module M = struct
      let f () = [| v01; v02; v03; v04; v05; v06; v07; v08; v09; v10; v11; v12 |]
    end
  end



let g () =
  let v01 = ref 42 in
  let v02 = ref 42 in
  let v03 = ref 42 in
  let v04 = ref 42 in
  let v05 = ref 42 in
  let v06 = ref 42 in
  let v07 = ref 42 in
  let v08 = ref 42 in
  let v09 = ref 42 in
  let v10 = ref 42 in
  let v11 = ref 42 in
  let v12 = ref 42 in

  let m () =
    [| v01; v02; v03; v04; v05; v06; v07; v08; v09; v10; v11; v12 |]
  in
  (v01,
   v02,
   v03,
   v04,
   v05,
   v06,
   v07,
   v08,
   v09,
   v10,
   v11,
   v12,
   m)