Use build in “first” function from Control.Arrow.
Use (***) function.
Use (&&&) function.