report "Creating engine....";
    my ($engine) = new Framisdat::Engine();

    report "...stoking.";

    $engine->Stoke($engine_stoke_limit);

    report "...running.";

    while ($engine->Running())
    {
    }