print<>!~$">($a=$`-$'*.4)?$`*7e3:($b=$'*3-$`)<0?$'*4e3:($a+$b*.7)/65e-5