{ "}" | *
  { ==f 0 ==running
    { f } { * }" ; { =*f { running not { 1 =running f 0 =running } rep } } ;
  } *
}" "}!" defq

{
  5 ==i

  { "g1 called" dump i dump f }! =*g1
  g1

  { "g2 called" dump i dump f }! =*g2
  g2
} =*f

f