{-# LANGUAGE FreeSections #-}  -- with GHC's -F you cannot...

  module S26 where

  v x | x == 1     = g _[ a __ b ]_ __ c
      | x == 2     = g _[ a __ b ]_ __ c
      | _[ __ == 2 ]_    = g _[ a __ b ]_ __ c
      | otherwise  = g _[ a __ b ]_ __ c