prodList lst = if (length lst)==1 then head lst else head lst*(prodList (tail lst))