{-# LANGUAGE Arrows #-}
module CmdFail003 where

f = proc x -> [_ -< _,
               _ -< _,
               _ -< _,
               _ -< _,
               _ -< _]