module Exercise_8 where

import Data.List

{-WETT-}
shoefa = length . drop 1 . group . filter (/= 0) . map signum
{-TTEW-}