One Minute One-liners for the curious: https://www.youtube.com/@1minute1liners
In this YouTube short, I explain how to create several progress indicator functions for GP/PARI. We start with a one-liner and improve from there. The one-liner of note is:
progress(a,a0,a1)={printf("% 3d%%%c%c%c%c%c",round(100*abs((a-a0)/(a1-a0))),8,8,8,8,8);}
Below are the illustrative functions progress1.gp, progress1a.gp and progress1b.gp. Note that initprogress can be put into .gprc.gp and run every time PARI starts.