(go) problem 01
problem 001 answer, common lisp and scheme