;;; Lecture 28 Examples to double :x output :x + :x end to ifelse2 :bool :True :False output run run word ": :bool end print ifelse2 emptyp [] ["empty] ["full] to tri :exp repeat 3 [run :exp lt 120] end to sier :d :k tri [ifelse :k = 1 [fd :d] [leg :d :k]] end to leg :d :k sier :d / 2 :k - 1 penup fd :d pendown end sier 400 6