to p repeat 650 [polygon repcount 15] end to polygon :sides :lenght repeat :sides [ fd :lenght rt 360 / :sides] end