Desenhar um retângulo de altura e largura determinadas

Vamos aqui definir um procedimento de nome retangulo que dependerá de duas variáveis.
Por exemplo, rec 200 100 desenhará um retângulo de altura 200 e largura 100. Obteremos:

aprenda retangulo :alt :lar
repita 2 [pf :alt pd 90 pf :lar pd 90]
fim

Experimentemos então:

retangulo 200 100 retangulo 100 300 retangulo 50 150 retangulo 1 20 retangulo 100 2

Certamente, se fornecermos apenas um argumento ao procedimento retangulo, o interpretador devolverá uma mensagem de erro informando que o procedimento precisa de mais um argumento.