Duplication of arrows?

[as-capabl]

This result may not be suitable.

Code:

{-# LANGUAGE QuasiQuotes #-}

module Main where

import Control.Arrow.Needle

mainArrow =
  [nd|
    }==={Kleisli putStrLn}=\===>
                           \===>
                           \===>
  |]

main =
  do
    runKleisli mainArrow "aaa"

Result:

aaa
aaa
aaa