RosettaCodeData/Task/Stack-traces/DWScript/stack-traces.dw

procedure Inner;
begin
   try
      raise Exception.Create('');
   except
      on E: Exception do
         PrintLn(E.StackTrace);
   end;
end;

procedure Middle;
begin
   Inner;
end;

procedure Outer;
begin
   Middle;
end;

Outer;