/* -*- gp-script -*- */ \\% Pretty printing of factorizations. \\ Author: Joerg Arndt \\ License: GPL version 3 or later \\ online at http://www.jjj.de/pari/ \\ version: 2014-October-16 (18:30) print1fact(bla="", f, tx="*")= { my(nf, p, x); print1(bla); nf = matsize(f)[1]; for (k=1, nf, p = f[k,1]; x = f[k,2]; print1(p); if ( x!=1, print1("^", x) ); if ( k