4.4BSD/usr/src/usr.bin/pascal/tstpx/src/expotst.p

program test(output);
var
x :real;
begin
while not eof do begin
	readln(x);
	writeln(expo(x))
	end
end.