(if val(&uf('ag1^1#1'))>0 then '5 ^a'&uf('ag1^a#1')'^m'&uf('ag1^m#1')'^b'&uf('ag1^b#1')'^j'&uf('ag1^j#1')'^p'&uf('ag1^p#1') &uf('+7w1#^1'f(val(&uf('ag1^1#1'))-1,0,0)'^a'&uf('ag1^a#1')'^m'&uf('ag1^m#1')'^b'&uf('ag1^b#1')'^j'&uf('ag1^j#1')'^p'&uf('ag1^p#1'))else break fi / )