import Hugs.Prelude

right :: [a] -> a -> [a]

right [] a = a : []
right ( x : xs ) a = ( x : right xs ) a