create or replace function expand_array ( anyarray ) returns setof anyelement  as $$
select  $ 1 [idx] from
(select generate_series(array_lower($ 1 , 1 ),array_upper($ 1 , 1 )) as idx) as foobarbaz;
$$ language 'sql';

create or replace function expand_array ( anyarray ) returns setof anyelement as $$
select $ 1 [idx]
  from generate_series(array_lower($ 1 , 1 ), array_upper($ 1 , 1 )) as gs(idx);
$$ language 'sql';

CREATE OR REPLACE FUNCTION expand_array(anyarray)
  RETURNS setof anyelement AS
'
declare
  array_in ALIAS FOR $1;
  i integer;
begin
  i := 1;

  WHILE array_in[i] is not null LOOP
    return next array_in[i];
    i := i+1;
  END LOOP;  

  return;
end;
'
  LANGUAGE 'plpgsql' VOLATILE;

----------------------------------------------------------------

CREATE OR REPLACE FUNCTION expand_array(anyarray)
  RETURNS setof anyelement AS
'
declare
  array_in ALIAS FOR $1;
  i integer;
begin
  FOR i IN array_lower(array_in,1)..array_upper(array_in,1) LOOP
    return next array_in[i];
  END LOOP;  

  return;
end;
'
  LANGUAGE 'plpgsql' VOLATILE;