Post date: Mar 4, 2012 4:33:18 PM
while {[gets stdin pp]!=-1} {
if [catch {set out [eval $pp]} err] {
puts "Error: $err"
} else {
puts "Output: $out"
}