rom the context.

  withConnection &quot;127.0.0.1&quot; 61613 [] [] $ \c -&gt; 
    withServer c &quot;Test&quot; (q,            [], [], iconv)
                        (&quot;unknown&quot;,    [], [], oconv) $ \s -&gt; do
      (sc,me) &lt;- if null reg -- if parameter reg is null
                   then return (OK, 0)
                   else register c jn Service reg rn tmo 500
      case sc of
        -- ok ------------------------------
        OK -&gt; 
          if me &lt; 0 || me &gt; 5000 -- accept 