dc <(read a; printf "$a 3/2*$a 5/2*+pq")