curl bs/mitca.ca | openssl x509 -inform DER -text | gawk '/Exponent/{a=0}a==1{print}/Modulus/{a=1}' | perl -pwe 'BEGIN{print "ibase=16\n"}chomp;$_=uc;s/[ :]//g;END{print"\n"}' | bc | perl -pwe 'BEGIN{print"\\g 5\nfactorint("}chomp;s/\\//;END{print")\n"}' | athrun gp