move (10) steps :: motion cat
move (10) steps 
move (10) steps {
move (10) steps {
move (move (10) steps :: pen reporter) steps 
} :: motion
move (10) steps  {
    move (10) steps 
} move (10) steps  {
    move (10) steps 
} move (10) steps :: motion
}:: motion capmove (10) steps 

forever if <forever if :: events> :: events cat
forever if <forever if :: events> {
forever if <forever if :: events>  {
forever if  <forever if :: events> {
forever if  <forever if :: events> {
forever if <forever if :: events> :: events stack
} :: events cap

} :: events cap
} :: events cap
} :: events cap

when @greenFlag clicked
when @greenFlag clicked :: events stack
when @greenFlag clicked {
when @greenFlag clicked :: events stack
when @greenFlag clicked :: events stack
when @greenFlag clicked {
when @greenFlag clicked :: events stack
} when @greenFlag clicked {
when @greenFlag clicked :: events stack
} when @greenFlag clicked :: events
} :: events 
when @greenFlag clicked {
when @greenFlag clicked :: events stack
when @greenFlag clicked :: events stack
when @greenFlag clicked {
when @greenFlag clicked :: events stack
} when @greenFlag clicked {
when @greenFlag clicked :: events stack
} when @greenFlag clicked :: events
} :: events