/* List reverse */

# list-sort

void -rc reverse (vb -w dest, vb src)
{
  vb tail = alloc (T_SLICE);

  attach (dest, &head),
  {
    reverse (dest, tail),
    {
      detach (head, tail, src),
      {
        vb head = alloc (T_LINK)
      }
    }
  };
}
/
{
  free (&tail);
}

void -rc reverse (vb -w ., vb src)
              if (length (src) == 0)
{
  ;
}

# >> reverse