#!/usr/bin/perl
#
# This is a gnut script; run it with the gnut command "eval debugloop"

$| = 1;

$delay = 1;
while(1) {
  print "debug\n";
  sleep $delay;
  $delay = $delay + ($delay >> 3) + 1;
}
