-- -- charin/1 -- create or replace function charin( cstring ) returns char as $$ charin$$ language plpgsql;