- dev ds h (
             r -> - dev dt h <
                               baud-rate : bits-per-second
                               flags : <
                                         % : r.flags.%
                                         parity : 1, rtscts : 0
                                       >
                             >
                             (
                               r -> say 'Speed is now ' r.baud-rate ' bps.'
                             )
           )
' ds = D_RS232 | D_INFO,
  dt = D_RS232 | D_SPEED | D_FLAGS
' h = kern K_DDC driver-name 
' driver-name = `PORT_NAME,
  bits-per-second = `PORT_SPEED