local L1 L2 LA LB LC LD Bisb in
    {Split L L1 L2}
    {Split L1 LA LC}
    {Split L2 LB LD}
    fun {Bisb E Liste}
        if Liste == nil then
            0
        else
            E*Liste.1+{Bisb E Liste.2}
        end
    end
    {Bisb A LA} + {Bisb B LB} + {Bisb C LC} + {Bisb D LD}
end