# Haskell - 58

    p x|(elem x['A'..'Z'])=[x..]!!32|1<2=x
    main=interact$map p