(let ((str "g6 g7 B")) (loop :for c :across str :sum (char-code c)))
Standard input is empty
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!