#!/usr/bin/perl -lp$_=(join"(",split//).")"x(y///c-1)
this is a test
t(h(i(s( (i(s( (a( (t(e(s(t)))))))))))))
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!