#!/usr/bin/perl
# eye_pattern.pl - Don Yang (uguu.org)
#
# 07/06/10

use strict;

for(my $i = 0; $i < 32; $i++)
{
   print chr(($i + 61) ^ 1);
}
print "\n";