AVL

SeqFromAVL(avl)
{
  if (empty(avl))
  {
    return []
  }
  else
  {
    left = SeqFromAVL(avl->left)
    right = SeqFromAVL(avl->right)
    l = leftRightMerge(left,right)
    return [avl->value] + l
  }
}

leftRightMerge(l1,l2)
{
  if(empty(l1))
  {
    return l2
  }
  else if(empty(l2))
  {
    return l1
  }
  return [l1[0],l2[0]] + leftRightMerge(l1[1:], l2[1:])
}