Fix karma adjustment bug and implement identity.

(@amalloy beat me to the adjustment bug and I just rebased from there.)

`(identity nickname)` and `$identity nickname` will print the karma of the nickname specified with this commit.