static int l(Object[] a) { return a == null ? 0 : a.length; }
static int l(bool[] a) { return a == null ? 0 : a.length; }
static int l(byte[] a) { return a == null ? 0 : a.length; }
static int l(short[] a) { return a == null ? 0 : a.length; }
static int l(long[] a) { return a == null ? 0 : a.length; }
static int l(int[] a) { return a == null ? 0 : a.length; }
static int l(float[] a) { return a == null ? 0 : a.length; }
static int l(double[] a) { return a == null ? 0 : a.length; }
static int l(char[] a) { return a == null ? 0 : a.length; }
static int l(Collection c) { return c == null ? 0 : c.size(); }
ifndef l_noIterators
static int l(Iterator i) { return iteratorCount_int_close(i); } // consumes the iterator && closes it if possible
endifndef
static int l(Map m) { return m == null ? 0 : m.size(); }
static int l(CharSequence s) { return s == null ? 0 : s.length(); }
static long l(File f) { ret f == null ? 0 : f.length(); }

ifndef l_withoutReflection

static int l(Object o) {
  ret o == null ? 0
    : o instanceof S ? l((S) o)
    : o instanceof Map ? l((Map) o)
    : o instanceof Collection ? l((Collection) o)
    : o instanceof O[] ? l((O[]) o)
    : o instanceof bool[] ? l((bool[]) o)
    : o instanceof byte[] ? l((byte[]) o)
    : o instanceof char[] ? l((char[]) o)
    : o instanceof short[] ? l((short[]) o)
    : o instanceof int[] ? l((int[]) o)
    : o instanceof float[] ? l((float[]) o)
    : o instanceof double[] ? l((double[]) o)
    : o instanceof long[] ? l((long[]) o)
    : (Int) call(o, 'size);
}
endifndef

ifclass MultiSet
  static int l(MultiSet ms) { ret ms == null ? 0 : ms.size(); }
endif

ifclass Lisp
  static int l(Lisp l) { ret l == null ? 0 : l.size(); }
endif

ifclass IntRange
  static int l(IntRange r) { ret r == null ? 0 : r.length(); }
endif

ifclass LongRange
  static long l(LongRange r) { ret r == null ? 0 : r.length(); }
endif

Began life as a copy of #1001516