for(split /\s+/,".--- ..- ... - | .- -. --- - .... . .-. | .--. .  .-. .-.. | .... .- -.-. -.- . .-. .-.-.- !"){print $rt{$_};}'