alias ishappy {
  var %e $1
  :o
  if (%e == 4) return 0
  var %e $calc($mid(%e,1,1)^2 + $mid(%e,2,1)^2 + $mid(%e,3,1)^2)
  if (%e != 1) goto o
  return 1