module Exercise_8 where

import Data.List

{-WETT-}
shoefa xs = length $ filter (<0) $ zipWith (*) sign $ tail sign
  where sign = filter (/=0) $ map signum xs
{-TTEW-}