Experiments with the children's programming language "logo" resulted in these allegorical programs where the turtle (the drawing agent in logo) takes an anxious journey.
cs
ht
make "radius 300
make "JourneyLength 50000
make "step :JourneyLength
make "stride 2
make "adventurousness 3
make "anxiety 50
repeat :step [
make "lostness ((random 2 * :JourneyLength)
- :JourneyLength) / ((:step/:adventurousness +
:JourneyLength/:anxiety) )
left :lostness
fd :stride
if xpos * xpos + ypos * ypos >
:radius * :radius [right 180] []
make "step :step - 1
]