module Foo where

foo :: [Int] -> Int
foo xs = if null xs then head xs else 0