#!/usr/bin/perl

use strict;
my $max = shift or die "Usage: $0 <max len>\n";
for my $t ( 2..$max ){
    for my $s ( 1..$t-1 ){
        print $t*$t-$s*$s," ",2*$s*$t," ",$t*$t+$s*$s," is a winner\n";
    }
}