{-
   test5.hs
-}
test5 = 
  let 
    add_list x = (if (x == []) then (0) else (head(x) + add_list (tail(x))))
    m = 3:7:[]
  in add_list m
{-
   end test5
-}