(use-modules (wm))

(when (wm-init)
  (wm-set-configure-notify-handler!
   (lambda (x y w h)
     (display (+ x y w h))
     (display "\n")))
  (wm-quit))