import Array

a = array (1,10) ((1,1) : [(i, i * a!(i-1)) | i <- [2..10]])