COMMON LISP JP > Badge

To get this:

Copy and paste the code below:

The concept of chatroom badge, and its design, are inherited from Lingr.