sub salaa{
	my($muutettava) = @_;
	$muutettava .= 1;
	@sekoitettu = split(/2/,$muutettava);
	push(@sekoitettu,shift(@sekoitettu));
	$sekoitettu = join("x",@sekoitettu);
	$sekoitettu =~tr|1x34567890.,/ \t|gEVYy98of2O0lI1|;
	return($sekoitettu);
}

sub tulkitse{
	my($tulkittava) = @_;
	$tulkittava =~tr|gEVYy98of2O0lI1|1x34567890.,/ \t|;
	@tulkittava = split(/x/,$tulkittava);
	unshift(@tulkittava,pop(@tulkittava));
	$tulkittava = join("2",@tulkittava);
	chop($tulkittava);
	return($tulkittava);
}