The function to be called at the toplevel, for example: (loop-until 4). It is hardcoded to use the infinitizer-2 higher-order function. infinitizer(Goal) :- call(Goal ...

Now start netcat locally with nc -l 4000 and the exception will be raised. If loop_alarm is not ran, then keep_connecting will keep making connections for a while until it runs out of descriptors.