mapat(2, \&f, [[[1,5],[2,6]],[[3,7],[4,8]]]);
    # [[f([1,5]),f([2,6])],[f([3,7]),f([4,8])]]