#!/usr/bin/perl

%data;

open FHAND, "<nummap.txt";
foreach (<FHAND>) {
  chomp;
  ($key,$val) = split(" ");
  $data{$key} = $val;
}
close FHAND;

foreach $v (0..99999) {
  print "SELF $v\n" if ($data{$v} == $v);
  print "AMICABLE $v $data{$v}\n" if ($data{$data{$v}} == $v);
  print "TRIAD $v $data{$v}\n" if ($data{$data{$data{$v}}} == $v);
  $hoy = $data{$data{$data{$data{$v}}}};
  print "FOUR $v $data{$v}\n" if ($hoy == $v);
  if ($hoy ne "") {
    print "$data{$data{$data{$v}}} $data{$data{$v}} $data{$v} $v\n";
  }
}