(setq
   Width (in '(tput cols) (read))
   Height (in '(tput lines) (read)) )