2.11BSD/src/ucb/pascal/px/doub.p

program doub( output );
    begin
	writeln( 3.14159 )
    end.