-module m. -export[m/0]. m()->G={io,get_line},[C|S]=string:to_upper(G("")),G([C,[[B,C]||B<-" 
",C<-S]]).