#!/usr/bin/perl


$k = <STDIN>;
chomp $k;
$answer = sumOfGroup($k);
print "$answer\n";

sub sumOfGroup {
    my $n = $_[0];
    return $n*$n*$n;
}