This looks like a working 58:

//+map{$'-$_-2&3|"@_"-$'&3||print"$'-$_-@_
"}@;for@;=0..39
[download]