: clock (  -- )
  oledclr
  hook-emit @              \ save emit hook
  ['] oled-emit hook-emit ! \ redirect terminal to oled-emit
  -1 -1 -1 alarm!
  begin
    wait-alarm  \ wait a second
    .time
    0 0 oledpos!
  key? until
  key drop 
  hook-emit !         \ restore old hook
;