Voorbeeld 2 (zie presentatie)
to fline :size :niveau
	ifelse :niveau = 0 [fd :size][fline :size/4 :niveau-1]
	rt 90
	ifelse :niveau = 0 [fd :size][fline :size/4 :niveau-1]
	lt 90
	ifelse :niveau = 0 [fd :size][fline :size/4 :niveau-1]
	lt 90
	ifelse :niveau = 0 [fd :size][fline :size/4 :niveau-1]
	ifelse :niveau = 0 [fd :size][fline :size/4 :niveau-1]
	rt 90
	ifelse :niveau = 0 [fd :size][fline :size/4 :niveau-1]
	rt 90
	ifelse :niveau = 0 [fd :size][fline :size/4 :niveau-1]
	lt 90
	ifelse :niveau = 0 [fd :size][fline :size/4 :niveau-1]
end
to fvierkant :size :niveau
	cs
	ht
	ifelse :niveau > 0 [repeat 4[fline :size/4 :niveau-1 rt 90]][repeat 4[fd :size rt 90]]
end