# Zie hoofdstuk 3, pagina 35

# voer de nieuwe definities uit door ze aan te roepen
tekenVierkant(2)
vooruit(1) 
rechts()
tekenRechthoek(1, 3)


# definieer het tekenen van een vierkant 
# in termen van een rechthoek!
procedure tekenVierkant(maat){
    tekenRechthoek(maat, maat)
}
	
# definieer het tekenen van een rechthoek 
procedure tekenRechthoek(breedte, hoogte){
    verfWit()
    herhaal(2)	{
        vooruit(hoogte)
        rechts()
        vooruit(breedte)
        rechts()
    }
    stopVerven()
}