Use block form of write:
```
(testpath/'hello_world.prg').write << EOS-undent
    'procedure Main();?"Hello, world!";?;?OS();?Version();return
EOS
```
Use some newlines in there too, if appropriate.