import Data.Char main=interact(\(a:b)->a:do c<-" \n";x<-b;[c,toUpper x])