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