#!/usr/bin/perl -p
s/(def .*?\()\)/$1self)/ or
  s/def .*?\(/$&self, /;
s/@/self./g;
s/defun/def/;