let
set_window w = window := w