/poke {
  set %sprawdz $1-
  set %sprawdz $replace(%sprawdz,a,2A)
  set %sprawdz $replace(%sprawdz,b,3b)
  set %sprawdz $replace(%sprawdz,c,4c)
  set %sprawdz $replace(%sprawdz,d,11d)
  set %sprawdz $replace(%sprawdz,e,10E)
  set %sprawdz $replace(%sprawdz,f,13f)
  set %sprawdz $replace(%sprawdz,g,5G)
  set %sprawdz $replace(%sprawdz,h,6H)
  set %sprawdz $replace(%sprawdz,i,11i)
  set %sprawdz $replace(%sprawdz,j,7J)
  set %sprawdz $replace(%sprawdz,k,13K)
  set %sprawdz $replace(%sprawdz,l,8L)
  set %sprawdz $replace(%sprawdz,m,9m)
  set %sprawdz $replace(%sprawdz,n,10N)
  set %sprawdz $replace(%sprawdz,o,11o)
  set %sprawdz $replace(%sprawdz,p,12P)
  set %sprawdz $replace(%sprawdz,q,13q)
  set %sprawdz $replace(%sprawdz,r,14R)
  set %sprawdz $replace(%sprawdz,s,1s)
  set %sprawdz $replace(%sprawdz,t,2T)
  set %sprawdz $replace(%sprawdz,u,3u)
  set %sprawdz $replace(%sprawdz,v,4V)
  set %sprawdz $replace(%sprawdz,w,4w)
  set %sprawdz $replace(%sprawdz,x,5X)
  set %sprawdz $replace(%sprawdz,y,7y)
  set %sprawdz $replace(%sprawdz,z,9Z)

  Say %sprawdz
  unset %sprawdz
  halt