module Exercise_8 where

import Data.List
import Foreign.Marshal.Utils

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