CREATE OR REPLACE FUNCTION foo (int bar0) RETURNS int language plpgsql security definer volatile as $$ begin return $1 + 1; end; $$;
Edit: added sample.
http://www.csis.ul.ie/cobol/examples/Conditn/IterIf.cbl