program x;
    read a;
    read b;
    while a/= 0 do
	print [a,b];
	read a;
	read b;
	end;
    print "done";
    end;

1;2;
3;4;
0;0;