$n=<>;
for$a(1..$n){
for$b($a..$n){
$c=$n-$a-$b;
print"$a $b $c\n"if$c>=$b;
}
}