module Exercise_8 where

import Data.List

{-WETT-}
shoefa :: (Num a, Ord a) => [a] -> Int
shoefa = length . drop 1 . group . map signum . filter (/=0)
{-TTEW-}