Претензии к Haskell

tst1 x
  | x == 0 = []
  | otherwise = [x]

tst1 x = case () of
           _ | x == 0 -> []
             | otherwise -> [x]

    map (\ []     = []
         \ (x:xs) = .... )

tst2 x = let r= x `div` (| x == 0 = 1
                         | _      = 3) in
         if 3 * (| odd r = 1
                 | _     = r) > 10 then r^2 else r^3

take' n list@(x:xs)
  | n <= 0    = []
  | null list = []
  | otherwise = x: take' (n - 1) xs

tst2 x = let r= x `div` (if x == 0 then 1 else 3) in
         if 3 * (if odd r then 1 else r) > 10 then r^2 else r^3

f p1 | g1 = e1
f p2 | g2 = e2
...
 
f arg = case arg of
  p1 | g1 -> e1
  p2 | g2 -> e2
  ...

tst1 x = if
    | x == 0    -> [] 
    | otherwise -> [x]

tst4 i = case i of
            []  -> "empty"
            [c] -> "one"
            _   -> "else/otherwise/ C default"

tst5 x  
    | x == 0    = [] 
    | otherwise = case cos x of
                     0 -> "+- Pi/2"
                     _  | x < 0     -> concatMap (\ v -> show v) [x..0]
                        | otherwise -> concatMap (\ v -> show v) [0..x]

tst5 x  
    | x == 0    = [] 
    | _         = case cos x of
                     0 = "+- Pi/2"
                     _  | x < 0  = concatMap (\ v = show v) [x..0]
                        | _      = concatMap (\ v = show v) [0..x]

-- Вот что должно быть на мой взгляд, и как ни странно, оно возможно
tst5 x = if 
    | x == 0    -> [] 
    | otherwise -> case cos x of
                     0              -> "+- Pi/2"
                     _  | x < 0     -> concatMap (\ v -> show v) [x..0]
                        | otherwise -> concatMap (\ v -> show v) [0..x]
-- И чтоб моё чувство прекрасного не возмущалось. Хоть и понятно, что не нужно.
tst5 x = case cos x of
    _   | x == 0    -> []
    0               -> "+- Pi/2"
    _   | x < 0     -> concatMap show [x..0]
        | otherwise -> concatMap show [0..x]
-- Или даже так.
tst5 x = if
    | x == 0    -> []
    | cos x == 0-> "+- Pi/2"
    | x < 0     -> concatMap show [x..0]
    | otherwise -> concatMap show [0..x]