RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Quackery/loop-over-multiple-arrays-simultaneously.quackery

  [ rot witheach
      [ emit
        over i^ peek emit
        dup  i^ peek emit
        cr ]
    2drop ]               is task ( $ $ $ --> )

  $ "abc"  $ "ABC"  $ "123"  task