myhistogram = function(x, min, max) {
if (missing(min)){
}
if (missing(max)){
list(borders=c(), counts=c())
x = seq(-5, 6, by = 1 / 3)
l = myhistogram(x)
print(l$borders)
print(l$counts)