1 -- !!! Array - out-of-range (index,value) pairs
3 -- supplying a list containing one or more pairs
4 -- with out-of-range index is undefined.
11 a1 = array (1::Int,0) []
12 a2 = array (0::Int,1) (zip [0..] ['a'..'z'])
14 print (a1::Array Int Int) >> print a2