/* steve.tc - tct - 12/23/17 */

/* display proper fraction */

dpfx int n,d,p [
 if p [MC 10*n/d,14;dpfx 10*n%d,d,p-1]
 ]

dpf int n,d,p [
 putchar '.'
 dpfx n,d,p
 ]

steve int n,p [
 dpf(n,n+1,p)
 ]