for$a(1..<>){print"$a:@{[grep{$a%$_<1}1..$a]}
"}