Posted to tcl by evilotto at Tue Apr 06 23:00:58 GMT 2010view pretty

set location "Middle East"
set plan {}
while {[lsearch $plan "peace"] == -1} {
  set plan {*}[generate-new-plans $plan]
}
puts "Optimal plan is [lsearch $plan "peace"]"