read a b c seq $c|sed "asi$a $c+li-$c/li$b $c|*+ \$a$c%p"|dc