{-# LANGUAGE Arrows #-} f = id