-module(r).
-export([m/0]).
m()->io:format([H+H div$@*(13-H rem$ div$*26)||H<-io:get_chars('',3000)]).