#!/usr/bin/perl

while(1){
  print "\t\t\t\b\b\t\b\t\t\b\b\b\t\b";
}
exit;