getNlines n = 
    do l <-  getLine
       ls <- getNlines (n-1) 
       return (l++ls) 

{- using getNlines in an interaction -}       
getNlines n = 
    do l <-  getLine
       ls <- getNlines (n-1) 
       return (l++ls) 

{- using getNlines in an interaction -}       
getNlines n = 
    do l <-  getLine
       ls <- getNlines (n-1) 
       return (l++ls) 

{- using getNlines in an interaction -}       