# Questa funzione riceve in input una parola e restituisce le due
# parole prodotte da un Faro out-shuffle e un Faro in-shuffle.
# Esempio: shuffle("creta")
# Output: "carte" "actre"

shuffle <- function(w) {
	C<-nchar(w)
	t<-c(); w1<-""; w2<-""
	for(i in 1:C) t<-c(t, substr(w,i,i))	
	for(i in 1:ceiling(C/2)) {
		if(i!=ceiling(C/2) | C%%2==0) {
			w1 <- paste(w1, t[i], t[C+1-i],sep="")
			w2 <- paste(w2, t[C+1-i], t[i],sep="")
		} else {
			w1 <- paste(w1, t[i],sep="")
			w2 <- paste(w2, t[i],sep="")
		}
	}
	c(w1,w2)
}