module Exercise_8 where

  import Data.List
  import Data.Function
  import Foreign.Marshal.Utils(toBool)

  

  
  

  
  
  

  
  
  
  
  
  

  
  
  
  
  
  

  
  
  

  
  
  

  
  

  
  
  
  

  
  
  

  
  

  
  {-WETT-}
  shoefa = max 0 . pred . length . group . map signum . filter toBool
  {-TTEW-}