recordformat sockaddr(integer whatever)

externalroutine connect(integer sockfd, record (sockaddr) name addr, integer addlen)
   systemroutinespec connect(integer sockfd, record (sockaddr) name addr, integer addlen)
   connect(sockfd, addr, addlen)
end

begin
  ! call connect?
end

endoffile