to carpet repeat 10 [square repcount * 10] end to square :lenght repeat 4 [fd :lenght rt 90] end