#!perl -p s/#.+//;s/(\W)([abi])(?=\W)/\1\$\2\3/g;s/(\W)int(\W)/\1my\2/;s/^(\w|\}).*//;s/^\s{4}//;s|//|#|g