(map display(string-split(read-line)#/\b[Bdtg]\w*./))