digrt=: 10&$: :(|&.<:^:<:)"0

addps=: 10&$: :([: <:@# +/@(#.inv)^:a:)"0