Select Code to Download

#! /usr/bin/perl -wl

...
my @A = (3, 5, 74017, 74027, 74047, 74077);

print join ' ', 0+$_, fk1($_, @A), fk2($_, @A) while <>;