Using Procedure for House Assignment

procedure house
    drawfillbox(200, 200, 300, 150, red)
    drawline(200, 200, 250, 250, brown)
    drawline(250, 250, 300, 200, brown)
    drawline(200, 200, 300, 200, brown)
    drawfill(250, 202, brown, brown)
end house

procedure tree(x, y, r : int)
    drawfilloval(x, y, 2 * r, 2 * r, green)
    drawfillbox(x - r, y - r, x + r, y - 5 * r, brown)
end tree

house
tree(100, 300, 20)
tree(400, 250, 30)
for x : 200 .. 300 by 20
    tree(x, 165, 3)
end for