my ($n) = shift;

while (1) {
  
}