map{say' 'x(9-$_).("1"x$_)**2}split//,('1'x9)**2