module Dodge.Story
    where

rezText :: [String]
rezText = 
    ["INITIALIZING..."
    ,"COMPLETE"
    ,"LOADING SUBJECT 288307..."
    ,"COMPLETE"
    ,"INITIALIZING RECONSTRUCTION..."
    ,"WARNING 56684 PARAHIPPOCAMPAL GYRUS"
    ,"WARNING 57810 DIENCEPHALON"
    ,"RECONSTRUCTION TERMINATED 1527"
    ,"PRESS ANY KEY TO CONTINUE"
    ,">"
    ]
rezText' :: [(Int,String)]
rezText' = reverse $ zip [300,250,248,200,198,100,80,10,1,999] rezText
