#!/usr/bin/perl

use 5.040.3;
no warnings;


my @spiral = ("\x{2190}", "\x{2196}", "\x{2191}", "\x{2197}", "\x{2192}", "\x{2198}", "\x{2193}", "\x{2199}" );

my $d = 0;
while (1){
    $d++;
    print "\r" . $spiral[$d % 8] . sprintf (" %08d ", $d );

}


exit 2;