let get_map_type n = match n with
       | 0 -> Cave.makecave2
       | _ -> Cave.makecave3