Pretty print to one column (equivalent of ls -1)

ct <- function(x){return(cat(x, sep="\n"))}