Mine

% set input ""
% while {$input != "koniec"} {
    gets stdin input
    puts "Wynik: [expr $input]"
}
1+1
Wynik: 2
2+2
Wynik: 4
koniec
syntax error in expression "koniec": variable references require preceding $