(defun check (str)
(loop with plist = nil
for char across str
do (incf (getf plist char 0))
finally (format t "~{'~c'->~2d~%~}" plist)))
(check "We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris.")
KGRlZnVuIGNoZWNrIChzdHIpCiAgKGxvb3Agd2l0aCBwbGlzdCA9IG5pbAoJZm9yIGNoYXIgYWNyb3NzIHN0cgoJZG8gKGluY2YgKGdldGYgcGxpc3QgY2hhciAwKSkKCWZpbmFsbHkgKGZvcm1hdCB0ICJ+eyd+YyctPn4yZH4lfn0iIHBsaXN0KSkpCgooY2hlY2sgIldlIHdpbGwgZW5jb3VyYWdlIHlvdSB0byBkZXZlbG9wIHRoZSB0aHJlZSBncmVhdCB2aXJ0dWVzIG9mIGEgcHJvZ3JhbW1lcjogbGF6aW5lc3MsIGltcGF0aWVuY2UsIGFuZCBodWJyaXMuIik=