{-# LANGUAGE MultiParamTypeClasses #-}

class Foo a b where foo :: a -> b

-- | Something.
class Bar a b c d
  where
    bar ::
           a
        -> b
        -> c
        -> d

class -- Before name
    Baz
  where
    baz :: Int

-- | Something else.
class
      BarBaz
        a              -- Foo
        b              -- Bar
        c              -- Baz bar
        d              -- Baz baz
        e              -- Rest
        f where
    barbaz ::
        a -> f
    bazbar ::
        e ->
        f