fun concat_alt (l1,l2) =
    if null(l1) then
        l2
    else if null(l2) then
        l1
    else
        hd l1 :: hd l2 :: concat_alt(tl l1, tl l2);