#!/usr/bin/perl

for (1..45){
    $y{$_}  = " " x 4;
    $y{$_} .= " " x $_;
    $y{$_} .= ">>-->";
}

for (46..90){
    $y{$_}  = " " x 4;
    $y{$_} .= " " x (90 - $_);
    $y{$_} .= "<--<<";
}

for (91..114){
    $y{$_}  = " " x 4;
    $y{$_} .= " " x (115 - $_);
    $y{$_} .= "<--";
    $y{$_} .= " " x (($_ - 90) * 2);
    $y{$_} .= "-->";
}

for (115..138){
    $y{$_}  = " " x 4;
    $y{$_} .= " " x ($_ - 113);
    $y{$_} .= "-->";
    $y{$_} .= " " x ((139 - $_) * 2);
    $y{$_} .= "<--";
}

for (139..162){
    $y{$_}  = " " x 4;
    $y{$_} .= " " x ($_ - 138);
    $y{$_} .= "--><--";
    $y{$_} .= " " x 23;
    $y{$_} .= "--><--";
}

for (162..167){
    $y{$_}  = " " x 4;
    $y{$_} .= " " x ($_ - 138);
    $y{$_} .= "--><--";
}

for (168..191){
    $y{$_}  = " " x 4;
    $y{$_} .= " " x ($_ - 168);
    $y{$_} .= "--><--";
    $y{$_} .= " " x 23;
    $y{$_} .= "--><--";
}

for (192..197){
    $y{$_}  = " " x 4;
    $y{$_} .= " " x ($_ - 168);
    $y{$_} .= "--><--";
}




#for (139..197){    print "$y{$_}\n"; }
#exit(1);

for (1..2000000){
    $x++;
    if ($x == 1000){
        $x = 0;
        $y++;
    }
    $y = 0 if $y > 197;
    print $y{$y};
    print "\n";
}