$"=', ';print"[@{[map\"[@{[map<>+0,1..<>]}]\",1..<>]}]"