A puppy implementation for GNFS in Mathematica