an implementation of picture-language for sicp