set map read_map (openfile $map_file) map ($map_file openfile) read_map set