- printf '[p .principal . %s][p .subject . %s]' \
- "$(UNSTRING "$principal" |HTML)" "$(UNSTRING "$subject" |HTML)"
+ amount="${record#* * * * * }" amount="${amount%% *}"
+ printf '[p .principal . %s][p .amount %s][p .subject . %s]' \
+ "$(UNSTRING "$principal" |HTML)" "$(credit "$amount")" "$(UNSTRING "$subject" |HTML)"