Contact

Reveal my email address via reCAPTCHA, or just run this program:

1
2
3
4
5
6
7
8
#!/usr/bin/env runhaskell

rearrange :: String -> String
rearrange [] = []
rearrange [c] = [c]
rearrange (c1:c2:rest) = c1 : rearrange rest ++ [c2]

main = putStrLn $ rearrange "cgornot.aecrta@wftufnowsiht"