let from_compact (g:Compact.genome) = 
      let compile_pu pu = 
        let first_pass = make_hash pu in
        Array.of_list (Util.pilemap (compile_domain first_pass) pu)
      in
      let compile_compartment c =
        List.map compile_pu c in
      List.map compile_compartment g