my $n = <>;
my $m = <>;
$n %= 10;
$m %= 4;

for(my $i = 1; $i < $m; $i++) {
  $n *= $n;
  $n %= 10;
}
print$n,$/;