module msoup

use mind

public :: newS, insertS, nextS, takeS, an_indS, emptyS, sizeS, showS
type, public :: soup
    private
    type(node), pointer :: fst
end type soup

type, private :: node
    type(ind) :: pathI
    type(node), pointer :: next
end type node

contains

function newS() result(c)
type(soup) :: c

c%fst=>null()
end function newS

recursive subroutine insertS(i,s)
type(ind), intent(in) :: i
type(soup), intent(inout) :: s

if (.not. associated(i)) then
    i => s
else if
end recursive subroutine insertS

subroutine nextS(s,i1,i2,b)