import "Prelude"

f :: [(String,String)] -> [(String,String,String)] 
f l = [(show m,x,y) | m@(x,y) <-l ]

main = f []  
--
[]