module Exercise_8 where

  import Data.List
  import Data.Maybe

  

  
  

  
  
  

  
  
  

  
  
  

  
  
  

  
  
  
  

  
  
  
  

  
  
  

  
  

  
  
  

  
  
  
  
  

  
  
  

  
  
  

  
  

  
  
  
  

  
  
  

  
  

  {-WETT-}
  shoefa :: (Num a, Ord a) => [a] -> Int
  shoefa (x:y:xs) = fromEnum (x*y<0) + shoefa (y*2+signum x:xs)
  shoefa _ = 0
  {-TTEW-}