import Control.Monad
 
main = do
    l <- readLn :: IO Integer
    r <- readLn :: IO Integer
    mapM_ putStrLn $ do 
        i <- [l..r]
        j <- [i..r]
        guard $ gcd i j == 1
        k <- [j..r]
        guard $ gcd j k == 1
        guard $ gcd k i /= 1
        return $ show i ++ "  " ++ show j ++ "  " ++ show k

import Control.Monad
import Safe
 
main = do
    l <- readLn :: IO Integer
    r <- readLn :: IO Integer
    putStrLn $ headDef "-1" $ do 
        i <- [l..r]
        j <- [i..r]
        guard $ gcd i j == 1
        k <- [j..r]
        guard $ gcd j k == 1
        guard $ gcd k i /= 1
        return $ show i ++ "  " ++ show j ++ "  " ++ show k

import Control.Monad
import Safe
import System.IO
 
main = do
    s <- getLine
    case map read (words s) :: [Integer] of
        [l,r] -> putStrLn $ headDef "-1" $ do 
            i <- [l..r]
            j <- [i..r]
            guard $ gcd i j == 1
            k <- [j..r]
            guard $ gcd j k == 1
            guard $ gcd k i /= 1
            return $ show i ++ "  " ++ show j ++ "  " ++ show k
        _ -> putStrLn "Ha4u dve 4isla!" >> hFlush stdout >> main

{-# LANGUAGE ViewPatterns #-}
import Data.List
 
main = 
    case ([1,2],4,"Test!") of
        ([],i,s) -> putStrLn $ "Empty, i=" ++ show i ++ "  s=" ++ s
        ([c],3,_) -> putStrLn $ "Only one element and number == 3  : " ++ show c
        ([c],_,_) -> putStrLn $ "Only one element : " ++ show c
        ((1:_),3,s) -> putStrLn $ "The first element ==1 and  the number == 3,  s=" ++ s
        (a,i,"Test") -> putStrLn $ "It is test. i=" ++ show i ++ "  a=" ++ show a
        (elemIndex 1 -> Just n,even -> True, length -> sz) -> putStrLn $ " Number 1 has index " 
                                                              ++ show n ++ 
                                                              ", i is even and length of string ="
                                                              ++ show sz
        ((i1:i2:_),i,_) | i1 == i2 && i1 < i -> putStrLn "The first and second elements are equal" 
        _ -> putStrLn "Else"

data Struct = Struct { i :: Int
                     , s :: String
                     , b :: Bool
                     } deriving Show  
 
main = 
    let s= Struct 12 "qwerty" True
        s'= s{ 
              i=33,
              s="asdfg"
             }
    in print s'