modified sgf-to-is as adviced on comp.lang.lisp