f=:3 :0 'a b c'=.y if.a>b do.if.b>c do.if.5>10|b-a do.5+c-5|c-b else.b end.else.if.c>a do.if.5<a-b do.f(c-5),a,b else.a end.else.b end.end.else.c end. ) wd@f"1".;._2(1!:1)3
Note that non-ascii characters in the above source code will be escaped (such as \x9f).