loop = 1
    string1 = "Now reading book"
    words = c("alpha","beta","gamma")

    all.words <- lapply(words,sampleFunc)

    sampFunc <- function(i,x=string1){

    temp <- paste(loop,x,i,sep="")

    }

    Ideal output
    1 Now reading book alpha
    2 Now reading book beta
    3 Now reading book gamma


    Actual output
    1 Now reading book alpha
    1 Now reading book beta
    1 Now reading book gamma

paste(string1, words)
# [1] "Now reading book alpha"
# [2] "Now reading book beta"
# [3] "Now reading book gamma"