fix leading example of 2htdp/planetcute to make it a legal
2htdp/bsl program

closes PR 13844
bring down below 102 columns