Quartus II TCL script to try multiple fitter seed settings?

Hi Folks,

I am developping a bigger project on an Altera FPGA with Quartus II 
(Lite Edition). Once the FPGA becomes fuller and fuller, it has turned 
out that I get considerable differences in timing results depending on 
the fitter initial seed value.

I now want to try a larger number of seed values automatically with a 
tcl script. That script should set a seed value, run the fitter, then 
run the timing analysis and finally print out the worst case slack. Then 
it should increment the seed value by one and restart form beginning 
until a certain seed value is reached.

My problem: I have no idea about how tcl works. So I do not even know 
where to start.

Does anybody have a sample script I could base my script on that would 
help me to get through the task of writing such a script? Or maybe 
someone has already wrote such a script and would share it here?

Remark: From old Xilinx times I know that ISE had such a functionality 
build in. Even though I like Quartus much more than the old ISE, this is 
the first function I am really missing.