Implementations of "tails" function in Data.List as well as a vaguely related function

antitails.hs

antitails x = reverse (foldr f1 [] x) ++ [""]
	      where f1 newchar acc = [[newchar]] ++ (map (newchar:) acc)

mytailsl.hs

mytailsl x = (foldl f1 [] x) ++ [""]
             where f1 acc newchar = (map (f2 newchar) acc) ++ [[newchar]]
	    	  	       	   where f2 currchar currstr = reverse (currchar : (reverse currstr))

mytailsr.hs

mytailsr x = (foldr f1 [] x) ++ [""]
	     where f1 newchar [] = [[newchar]]
	     	   f1 newchar acc = [newchar:(head acc)] ++ acc