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

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