--  :load "c:\\HaskellProgs\\chap4_1.hs"   

safetail_1 list = if (null list)
                  then []
				  else (tail list)


safetail_2 list | list == [] = []
                | otherwise  = tail list
				  
				  
safetail_3 [] = []
safetail_3 (h:t) = t