R Cipher exercise complete