Added main to sicp-pict