-- <PRE>
module RollDie where

import Excell
import List(sort,group)

add5 x = x+ 5

add3 x = x+3

col1 =  col [1..18 :: Integer]

col2 = col [ 1::Integer | i <- [1..6]]

col3 = blankCol 1 `above` col xs
  where xs :: [Integer]
        xs = [1,2,3,4,5,6,5,4,3,2,1]
        
col4 = blankCol 2 `above` col xs
  where xs :: [Integer]
        xs = [1,3,6,10,15,21,25,27,27,25,21,15,10,6,3,1]        
labels = row ["","1 Die", "2 Die", "3 Die"]

ans = labels ` above` (lineUp [col1,col2,col3,col4])

main = do { s <- getLine
          ; export "table" ans
          ; print ans
          ; print s
          }
          
-- </PRE>