#convert these numbers form a 3 mile run into minutes and seconds per mile
# runner    minutes   seconds
#   1          24        30
#   2          31        15
#   3          29        02
#   4          22        08
#
runner<-c(1,2,3,4)
minutes<-c(24,31,29,22)
seconds<-c(30,15,02,08)

myfunc <- function(var1,var2){
	min2sec <- var1*60
	totsec<-min2sec+var2
	totsec_pm<-totsec/180;
	trunced<-trunc(totsec_pm)
	mydiff<-totsec_pm - trunced
	mydiff<-round(mydiff*60)

	cat(trunced,mydiff,sep=":")
	cat("\n")
}

for(i in runner){
	myfunc(minutes[i],seconds[i])
}