(setq y
    (StickyIf
        (BumpedQ)
        (Prog
            (Noop)
            (Moveby -0.1)
            (Turnby 1.7)
        )
        (Noop)))
(Do y "some location")
(Stop y)

Example 2: Adding and removing allocated Steppables to and from the running system.