f"sky"="ksy"
f"oath"="taho"
f"give"="eivg"
f"saba"="abas"
f"xyziut"="zyxuti"
f"claivoryant"="clairvoyant"
f('1':x)=x++"1"
f x=x
r x=print(length x)>>putStrLn(f x++"\n/")
m@main=getLine>>=r>>m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).