multiloop <- function(...)
{  
   
   arguments <- lapply(list(...), as.character)

   
   lengths <- sapply(arguments, length)

   
   for(i in seq_len(max(lengths)))
   {
      
      for(j in seq_len(nargs()))
      {
         
         cat(ifelse(i <= lengths[j], arguments[[j]][i], " "))
      }
      cat("\n")
   }
}
multiloop(letters[1:3], LETTERS[1:3], 1:3)