val d = elem([1,2,3,4], elem([3,4,5], empty 3))

fun splosna f s ope =
    case s of
        elem(a, b) => (case ope of
            "+" => f(a) + splosna f b ope)
        | empty b => 0



splosna (fn x => List.length x) d "+"