#!/usr/bin/perl -w

use strict;

use POSIX;

my $r = 62;

my $q = floor($r / 2);

sub border {

my ($x, $z, $r, $q) = @_;

return (

3 == $x ||

3 == $r - $x

) && (

($z < $q + 7 / 4 && 3 == ( $z) % 7) ||

($z > $q + 7 / 4 && 3 == ($r - $z) % 7)

);

}

sub rotatedGrid {

my $d = sqrt 85;

my $h = sqrt(6 * 6 + 7 * 7);

my ($x, $z) = @_;

$x = abs(fmod(7 * $x / $h - 6 * $z / $h, $d));

$z = abs(fmod(6 * $x / $h + 7 * $z / $h, $d));

if (1 > $x && 1 > $z) {

# print "x: $x, z: $z\n";

return 1;

} else { return 0; }

}

for my $x (0 .. $r) {

for my $z (0 .. $r) {

# if (1 > fmod($x, $d) && 1 > fmod($z, $d))

if (rotatedGrid($x, $z))

{ print "##"; } else { print "<>"; }

}

print "\n";

}