sub Q2b36 {
    my $n = shift;
...

##</code><code>##

sub Q2b36 {
    my $n = uint64( shift );
...