Logo - Zadatak Zbroji

to zbroji :l
	make "l1 []

	make "f [ 1 1 ]
	for[ i 3 50 1 ][
		make "f lput ( ( item ( :i - 1 ) :f ) + ( item ( :i - 2 ) :f ) ) :f
	]

	foreach :l[
		make "s 0
		for[ i [ ( first ? ) ] [ ( last ? ) ] 1 ][
			make "s :s + ( item :i :f )
		]

		make "l1 lput :s :l1
	]

	op :l1
end