(print (let ((str "g6 g7 B"))
	(loop :for c :across str :sum (char-code c))))