(C:=Set evaluate:'#(',stdin contents,')')doWithIndex:[:x :i|stdout<<x<<([(C copyFrom:1to:-1+i)reverse detect:(B:=[:j|j<x or:0.x-j>9]).(C copyFrom:1+i)detect: B.'*
']ifError:[$
])]!