main = getLine >> getLine >>= print . foldl1 cardf . map read . words

cardf acc n
 | n<0 = acc-n
 | n==0 = acc
 | n==1 = acc+1
 | n>=2 = acc*n