Euler Phi Function

gcd:{[a]{[b]*{:[x[1];(x[1]),x[0]!x[1];x]}/(a,b)}}
phi:{+/1=gcd[x]'1+!x}