shirt = -> rt 3 fd 100 lt 138 fd 30 rt 90 fd 40 rt 90 fd 35 rt 30, 100 rt 90 lt 150, 30 # the middle line rt 90 rt 30, 100 fd 34 rt 90 fd 40 rt 90 fd 30 lt 138 fd 100 move -50, -50 pen coral do shirt speed Infinity do home move -50, -50 pen path do shirt fill coral speed 5 pen coral fd 100 lt 135 fd 30 rt 90 fd 40 rt 90 fd 35 rt 30, 100 rt 90 lt 150, 30 # the middle line rt 90