to mnogokut :k :a
	repeat :k [fd :a rt 360/:k]
end

to mnogokut2 :k :a
	(ifelse :k>2 [repeat :k [fd :a rt 360/:k]]
	[pr[Unijeli ste premali broj kuteva!]])
end

to niz.kvadrata :n :a
	repeat :n [repeat 4 [fd :a rt 90] rt 90 fd :a lt 90]
end

to osmerokut :a
	repeat 8 [fd :a rt 360/8]
end

to pravokutnik 
	repeat 2 [fd 100 rt 90 fd 200 rt 90]
end