User:EricSessoms

[maybe c id . lookup c $ zip ['a'..'z'] (['n'..'z']++['a'..'m']) | c <- "ahotnzrf ng tznvy qbg pbz"]