#R, 75 85 83 bytes

cat(x<-c("Hare ","Krishna ","\n")[c(1,2,1:3,2,2,1,1,3)],sub(x[2],"Rama ",x),sep="")

It creates a vector with Hare , Krishna , and the newline, takes the ones needed, and then repeats it replacing Krishna by Rama .

Needed to include the space on every word and sep="" because otherwise cat() would put a space at the beginning of each line.

R, 75 85 83 bytes

cat(x<-c("Hare ","Krishna ","\n")[c(1,2,1:3,2,2,1,1,3)],sub(x[2],"Rama ",x),sep="")

It creates a vector with Hare , Krishna , and the newline, takes the ones needed, and then repeats it replacing Krishna by Rama .

Needed to include the space on every word and sep="" because otherwise cat() would put a space at the beginning of each line.

#R, 75 85 bytes

Edited so style is exactly as expected. I had to use <- rather than = because cat would read them as arguments otherwise.

cat(h<-"Hare ",k<-"Krishna ",h,k,n<-"\n",k,k,h,h,n,h,r<-"Rama ",h,r,n,r,r,h,h,sep="")

Old:

p=paste;p(h="Hare",k="Krishna",h,k);p(k,k,h,h);p(h,r="Rama",h,r);p(r,r,h,h)

#R, 75 85 83 bytes

cat(x<-c("Hare ","Krishna ","\n")[c(1,2,1:3,2,2,1,1,3)],sub(x[2],"Rama ",x),sep="")

It creates a vector with Hare , Krishna , and the newline, takes the ones needed, and then repeats it replacing Krishna by Rama .

Needed to include the space on every word and sep="" because otherwise cat() would put a space at the beginning of each line.

###R, 75 bytes

p=paste;p(h="Hare",k="Krishna",h,k);p(k,k,h,h);p(h,r="Rama",h,r);p(r,r,h,h)

#R, 75 85 bytes

Edited so style is exactly as expected. I had to use <- rather than = because cat would read them as arguments otherwise.

cat(h<-"Hare ",k<-"Krishna ",h,k,n<-"\n",k,k,h,h,n,h,r<-"Rama ",h,r,n,r,r,h,h,sep="")

Old:

p=paste;p(h="Hare",k="Krishna",h,k);p(k,k,h,h);p(h,r="Rama",h,r);p(r,r,h,h)