powered by
inpboxe2(vlabel, inp)
vlabel<-c('matrix 1','matrix 2')
inp<-c('M','N')
ans<-inpboxe2(vlabel,inp)