create or alter procedure strtoid (
    str blob,
    l varchar(20) = null)
returns (
    n integer,
    code bigint)
AS
declare variable p int = -1;
declare variable t int = 1;
declare variable l1 int;
declare variable p1 int;
declare variable p2 int;
declare variable cc varchar(20);
declare variable nums varchar(16) = '[-+]?[0-9]{1,19}';
begin
  if (l is null) then
  begin
    p1 = position(',', str);
    p2 = position('~', str);
    if (p2 > 0 and (p1 = 0 or p1 > p2)) then l = '~'; else l = ',';
  end

  N = 1;
  l1 = char_length(l);
  while (p <> 0) do
  begin
    p = position(l, str, t);
    if (p = 0) then
      cc = left(substring(str from t), 20);
    else
      cc = left(substring(str from t for p-t), 20);
    if (cc similar to nums) then
    begin
      code = cc;
      suspend;
      N = N + 1;
    end
    t = p + l1;
  end
end