These functions return all points (pairs or triples of coordinates) within a given rectangle or box. ``pam`` is the reverse map function which was defined [here](http://snipplr.com/view/18351/reverse-map/).

rect :: Int -> Int -> [[(Int,Int)]]
rect a b = map (pam $ map (,) [1..a]) [1..b]
 
box :: Int -> Int -> Int -> [[[(Int,Int,Int)]]]
box a b c = map (pam . map pam $ map (pam $ map (,,) [1..a]) [1..b]) [1..c]