#!/usr/bin/perlprint 1,sort"@{[2..<>]}"=~/\d/g
22
10011111111111122222233445566778899
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!