print( ( $ar[ord $_] // '' ) =~ s/.\K$/ /r );