~~~
:ioctl:operation
  DEVICE:IOCTL io:scan-for
    dup n:negative? [ drop 'Error:_ioctl_device_not_found s:put nl ] if;
    io:invoke ;

:ioctl:term-size      (-nn) #0 ioctl:operation ;
:ioctl:set-cbreak     (-)   #1 ioctl:operation ;
:ioctl:set-lbreak     (-)   #2 ioctl:operation ;
:ioctl:save-state     (-)   #3 ioctl:operation ;
:ioctl:restore-state  (-)   #4 ioctl:operation ;
~~~