Construct $name = putStrLn "$name" function via Template Haskell.

Pisya.hs

{-# LANGUAGE TemplateHaskell #-}
module Pisya where

import PisyaTH

$(anal ["pemis", "gnoi", "sosiska", "sobachka"])

PisyaTH.hs

{-# LANGUAGE TemplateHaskell #-}
module PisyaTH where

import Language.Haskell.TH

anal xs = mapM func xs
  where func xs = funD (mkName xs) [clause [] (normalB $ appE (varE (mkName "putStrLn")) [e| xs |]) []]