let draw_path s =
       let rec loop path = match path with
         | ((x,y) :: path') ->
             waddstr s.window_cave x y "x";
             loop path'
         | [] ->
             ()
       in
         loop s.path;
         match s.src with (src_x,src_y) ->
           match s.dst with (dst_x,dst_y) ->
             waddstr s.window_cave src_x src_y "S";
             waddstr s.window_cave dst_x dst_y "D"