make "sky 1 make "into 2 to understand load "me clean home see home see obscure repeat :sky + :into [ see ] end to see television setscrunch :into golden :sky repeat often [ right pan forward sky ] end to golden :offering output :into * :offering end to television make "me happy end to happy op "erate "the "switches end to often make "trouble :sky + :into + :sky output power (:into + :sky) :trouble end to pan output :sky end to obscure hideturtle end
This is a Logo program which is also (kind of) a piece of poetry and image generator (it creates the image shown above). I did it a while back and found it an interesting exercise. I thought you might also find it interesting. Have you done anything similar? Anyone?