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