#!/usr/bin/boiler -i
{

void error()
{
 if (error) { printf("lib-error: "+perror+"\n"); };
 return;
};

unsigned long go_on=1;

void print("-p geheim",string a) { printf(a); return; };
void terminate("-p secret")
{
 go_on=0;
 return;
};
void sleep1("-p geheim",unsigned long a) { sleep(a); return; };

long sock_tcp_fork=makesock("",57001,1,6);
if (sock_tcp_fork==-1) { error(); exit(); };
long sock_udp_fork=makesock("",57001,2,17);
if (sock_udp_fork==-1) { error(); exit(); };
long sock_tcp=makesock("",57000,1,6);
if (sock_tcp==-1) { error(); exit(); };
long sock_udp=makesock("",57000,2,17);
if (sock_udp==-1) { error(); exit(); };
long transport_tcp_fork=svc_register(576871000,1,6,1,sock_tcp_fork);
if (transport_tcp_fork==-1) { error(); exit(); };
long transport_udp_fork=svc_register(576871000,1,17,1,sock_udp_fork);
if (transport_udp_fork==-1) { error(); exit(); };
long transport_tcp=svc_register(576871000,2,6,0,sock_tcp);
if (transport_tcp==-1) { error(); exit(); };
long transport_udp=svc_register(576871000,2,17,0,sock_udp);
if (transport_udp==-1) { error(); exit(); };

while (go_on)
{
 svc_run(60,0);
};

svc_unregister(transport_tcp_fork);
svc_unregister(transport_udp_fork);
svc_unregister(transport_tcp);
svc_unregister(transport_udp);
closesock(sock_tcp_fork);
closesock(sock_udp_fork);
closesock(sock_tcp);
closesock(sock_udp);
}
