on *:INPUT:#:{
if ( %Languange.letters == 2 ) {
say $replacecs($$1-,a,2a,b,3b,c,4c,d,5d,e,6e,f,7f,g,8g,h,9h,i,10i,j,11j,k,12k,l,13l,m,14m,n,15n,o,0o,p,2p,q,3q,r,4r,s,5s,t,6t,u,7u,v,8v,w,9w,x,10x,y,11y,z,12z,A,2A,B,3b,C,4C,D,5D,R,6R,F,7F,G,8G,H,9H,I,10I,J,11J,K,12K,L,13L,M,14M,N,15N,O,0O,P,2P,Q,3Q,R,4R,S,5S,T,6T,U,7U,V,8V,W,9W,X,10X,Y,11Y,Z,12Z)
halt
}
}