ping = point ->
  case (point is tcp-point) ->
    - ping-tcp point
  case (point is udp-point) ->
    - ping-udp point
  else
    <>                
  ;
_
  point : tcp-point-v4 | tcp-point-v6 | udp-point-v4 | udp-point-v6
;

