procedure main()
every(t:=trim(|read(),s:=' \t'))?write("$"<<t[upto(~s):0]\1)
end