while (data-source-exists *bytes-exists socket process-id) ->
  if bytes-exists ->
    - fp (line-in socket)
  else
    kern K_RDWAIT bytes
    ' bytes = < input : socket, p-id : process-id >
  ;
'
  bytes-exists = 0 ..
;